home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / bootup / boot_a2m / auto_set / auto_set.lst < prev    next >
Encoding:
File List  |  1995-05-02  |  1.8 KB  |  91 lines
  1. CLS
  2. PRINT "Auto Set V1.0 ╜ 1994 Alexander Hajnal"
  3. PRINT "Written in GFA Basic V3.5E"
  4. PRINT "This Program is Freeware!"
  5. PRINT
  6. MODE 1
  7. PRINT "Current Date is:";DATE$
  8. INPUT "Please enter new date (mm/dd/yyyy):";new.date$
  9. PRINT "Current Time is:";TIME$
  10. INPUT "Please enter new time (hh:mm:ss):";new.time$
  11. SETTIME new.time$,new.date$
  12. low!=TRUE
  13. def!=FALSE
  14. IF EXIST("A:\med.def")
  15.   low!=FALSE
  16.   def!=TRUE
  17. ENDIF
  18. PRINT
  19. IF EXIST("A:\low.inf")
  20.   IF EXIST("A:\med.inf")
  21.     PRINT "Select screen resolution:"
  22.     PRINT AT(1,11);"   LOW"
  23.     PRINT AT(1,12);"   MEDIUM"
  24.     IF low!
  25.       PRINT AT(1,11);"->";
  26.     ELSE
  27.       PRINT AT(1,12);"->";
  28.     ENDIF
  29.     DO
  30.       i|=INP(2)
  31.       SELECT i|
  32.       CASE 200
  33.         ' up
  34.         IF low!=FALSE
  35.           low!=TRUE
  36.           PRINT AT(1,11);"->";
  37.           PRINT AT(1,12);"  ";
  38.         ENDIF
  39.       CASE 208
  40.         ' down
  41.         IF low!=TRUE
  42.           low!=FALSE
  43.           PRINT AT(1,11);"  ";
  44.           PRINT AT(1,12);"->";
  45.         ENDIF
  46.       ENDSELECT
  47.     LOOP UNTIL i|=13
  48.   ELSE
  49.     low!=TRUE
  50.   ENDIF
  51. ELSE
  52.   low!=FALSE
  53. ENDIF
  54. IF EXIST("A:\low.inf") AND low!=TRUE AND def!=TRUE
  55.   OPEN "i",#1,"A:\low.inf"
  56.   OPEN "o",#2,"A:\desktop.inf"
  57.   len&=0
  58.   DO
  59.     INC len&
  60.     i|=INP(#1)
  61.     OUT #2,i|
  62.   LOOP UNTIL len&=LOF(#1)
  63.   CLOSE #1
  64.   CLOSE #2
  65.   IF EXIST("A:\med.def")
  66.     KILL "A:\med.def"
  67.   ENDIF
  68.   IF NOT EXIST("A:\low.def")
  69.     OPEN "o",#1,"A:\low.def"
  70.     CLOSE #1
  71.   ENDIF
  72. ELSE IF EXIST("A:\med.inf") AND low!=FALSE AND def!=FALSE
  73.   OPEN "i",#1,"A:\med.inf"
  74.   OPEN "o",#2,"A:\desktop.inf"
  75.   len&=0
  76.   DO
  77.     INC len&
  78.     i|=INP(#1)
  79.     OUT #2,i|
  80.   LOOP UNTIL len&=LOF(#1)
  81.   CLOSE #1
  82.   CLOSE #2
  83.   IF EXIST("A:\low.def")
  84.     KILL "A:\low.def"
  85.   ENDIF
  86.   IF NOT EXIST("A:\med.def")
  87.     OPEN "o",#1,"A:\med.def"
  88.     CLOSE #1
  89.   ENDIF
  90. ENDIF
  91.